﻿Imports System.Data
Imports System.Data.SqlClient
Imports CondorTravel.BE
Imports CondorTravelUTIL.DL

Public Class EncuestaDALC
    Public Function ListaDtsEncuesta(ByVal objEncuestaBE As EncuestaBE) As DataSet

        Dim sqlListar As String
        Dim arrSqlParameter(2) As SqlParameter
        Dim ds As DataSet

        Dim objDatos As New AccesoDatos()
        Dim blnExito As Boolean
        Dim strMensaje As String = String.Empty
        Dim intI As Integer = 0

        Try

            sqlListar = "SP_EncuestaList"

            arrSqlParameter(0) = New SqlParameter("@DESCLI", System.Data.SqlDbType.VarChar)
            arrSqlParameter(0).Value = objEncuestaBE.ClienteEnc


            arrSqlParameter(1) = New SqlParameter("@FECINI", System.Data.SqlDbType.VarChar)
            arrSqlParameter(1).Value = objEncuestaBE.FechaInicio

            arrSqlParameter(2) = New SqlParameter("@FECFIN", System.Data.SqlDbType.VarChar)
            arrSqlParameter(2).Value = objEncuestaBE.FechaFin  

            ds = objDatos.DevuelveDataSet(sqlListar, blnExito, strMensaje, arrSqlParameter)
        Catch ex As Exception
            MsgBox(ex.Message, vbCritical, "Error del sistema")
            Return Nothing
            Exit Function
        End Try

        Return ds
    End Function
End Class
